home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO020.dsk / STRT.bas < prev   
BASIC Source File  |  2012-02-16  |  5KB  |  91 lines

  1. 0 P0 =  PEEK(1010):P1 =  PEEK(1011):P2 =  PEEK(1012): POKE 1012,0
  2. 2  ONERR  GOTO 62000
  3. 10 D$ =  CHR$(4):R$ =  CHR$(13)
  4. 99  GOTO 1000
  5. 500  REM 
  6. 510  VTAB 24: INVERSE : PRINT "M FOR MENU, R FOR RESTART,C TO CONTINUE"; CHR$(7);
  7. 520  IF  PEEK( -16384) <127  THEN 520
  8. 525  GET Z9$
  9. 526  IF  ASC(Z9$) = 77  THEN 63000
  10. 527  IF  ASC(Z9$) = 82  THEN 1001
  11. 528  IF Z9$ < >"C"  THEN 520
  12. 530  NORMAL : HOME : RETURN 
  13. 1000  REM 
  14. 1001  TEXT : HOME : NORMAL 
  15. 1009  PRINT  TAB( 5);: INVERSE 
  16. 1010  PRINT "GETTING STARTED WITH APPLE ]"; CHR$(91): NORMAL 
  17. 1021  POKE 34,2: HOME 
  18. 1030  PRINT "1.ENSURE THAT ALL CONNECTIONS ARE         PROPERLY MADE - APPLE/MONITOR, ETC.": PRINT 
  19. 1039  PRINT "2.";
  20. 1040  INVERSE : PRINT "BEFORE";: NORMAL 
  21. 1041  PRINT " SWITCHING ON, INSERT DISK,LABEL  UPPERMOST, AND NEAREST YOU, INTO DISK   UNIT. CLOSE FLAP DOOR ON DISK UNIT."
  22. 1045  PRINT 
  23. 1050  PRINT "3.THIS IS NECESSARY SO THAT THE D.O.S.,   THE DISK OPERATING SYSTEM (SOFTWARE     FOR DISK COMMANDS) CAN BE LOADED INTO   MEMORY ('BOOTING')."
  24. 1055  PRINT 
  25. 1060  PRINT "4.SWITCH ON MONITOR FIRST (TO WARM UP)    AND THEN THE APPLE ]" CHR$(91);" ITSELF (BACK      LEFT). THE DISK WILL BE 'BOOTED'        AUTOMATICALLY. THE MONITOR SCREEN       SETTINGS SHOULD NORMALLY NOT NEED TO    BE ADJUSTED.
  26. 1065  PRINT 
  27. 1066  GOSUB 500
  28. 1070  PRINT "5.ON SWITCH-ON SOME DISKS WILL GIVE       INSTRUCTIONS AS TO USE, WHILE OTHERS    MAY PRODUCE A MENU (LIST OF OPTIONS)    OR AN AUTOMATIC CATALOG, ETC."
  29. 1075  PRINT 
  30. 1080  PRINT "6.A PROMPT SYMBOL ']' ON THE SCREEN       TOGETHER WITH THE FLASHING CURSOR: ";: FLASH : PRINT " ";: NORMAL : PRINT " ,";
  31. 1090  PRINT "  INDICATES THAT THE APPLE IS IN COMMAND  MODE, I.E. YOU MAY ENTER ANY OF THE     APPLE COMMANDS, USE APPLE AS A          CALCULATOR IN DIRECT MODE, OR ENTER     YOUR OWN PROGRAM, IF THE MEMORY IS      CLEAR."
  32. 1095  PRINT 
  33. 1100  PRINT "7.TO IMPLEMENT (EXECUTE) ANY COMMAND THE  'RETURN' KEY MUST BE PRESSED AFTER      TYPING THE COMMAND ITSELF. BE SURE TO   TYPE COMMANDS EXACTLY, OTHERWISE APPLE  WILL RESPOND WITH AN ERROR MESSAGE,     E.G., 'SYNTAX ERROR'."
  34. 1101  GOSUB 500
  35. 1110  PRINT "8.PROVIDED THAT THE PROMPT SYMBOL ']' IS  VISIBLE ON THE LEFT OF THE SCREEN,      TOGETHER WITH THE FLASHING CURSOR, AN   INDEX OF FILES ON THE DISK MAY BE       OBTAINED ON THE SCREEN BY TYPING THE    COMMAND 'CATALOG', AND PRESSING
  36. 1120  PRINT "  'RETURN' KEY. TO CONTINUE A CATALOG,    I.E. IF THE PROMPT SYMBOL FAILS TO      APPEAR WHEN SOME FILENAMES HAVE BEEN    LISTED, PRESS THE SPACE BAR             INTERMITTENTLY UNTIL THE PROMPT SYMBOL  APPEARS."
  37. 1125  PRINT 
  38. 1130  PRINT "9.THE COMMAND 'LIST' WILL LIST ANY        PROGRAM THAT IS CURRENTLY IN MEMORY."
  39. 1135  PRINT 
  40. 1140  PRINT "10.IF YOU WISH TO ENTER A PROGRAM OF      YOUR OWN YOU MUST TYPE THE COMMAND      'NEW' TO CLEAR THE MEMORY."
  41. 1141  GOSUB 500
  42. 1150  PRINT "11.IF YOU WISH TO EX<CTRL-A>AMINE AND/OR EDIT     ANY PROGRAM CURRENTLY ON THE DISK, AND  NOT IN MEMORY, THE COMMAND "
  43. 1151  PRINT : PRINT "  ";
  44. 1152  INVERSE : PRINT "LOAD";: NORMAL : PRINT " PROGRAM NAME"
  45. 1153  PRINT 
  46. 1154  PRINT "  WILL ENABLE YOU TO BRING IT INTO        MEMORY FOR USE."
  47. 1155  PRINT 
  48. 1160  PRINT "12.YOU MAY EXECUTE ANY PROGRAM CURRENTLY  IN MEMORY BY TYPING THE COMMAND"
  49. 1161  PRINT : PRINT "  ";
  50. 1162  INVERSE : PRINT "RUN";: NORMAL : PRINT " (NO PROGRAM NAME)"
  51. 1163  PRINT 
  52. 1170  PRINT "13.TO LOAD AND RUN A PROGRAM FROM A DISK  TYPE THE SINGLE COMMAND:"
  53. 1171  PRINT : PRINT "  ";
  54. 1172  INVERSE : PRINT "RUN";: NORMAL : PRINT " PROGRAM NAME"
  55. 1173  GOSUB 500
  56. 1180  PRINT "14.TO SAVE A PROGRAM CURRENTLY IN MEMORY  ONTO DISK TYPE:"
  57. 1181  PRINT : PRINT "  ";
  58. 1182  INVERSE : PRINT "SAVE";: NORMAL : PRINT " PROGRAM NAME"
  59. 1185  PRINT 
  60. 1190  PRINT "15.TO DELETE A PROGRAM FROM A DISK TYPE:"
  61. 1191  PRINT "  ";
  62. 1192  INVERSE : PRINT "DELETE";: NORMAL : PRINT " PROGRAM NAME"
  63. 1193  PRINT 
  64. 1200  PRINT "16.TO SAFEGUARD A FILE AGAINST CHANGE OR  DELETION, TYPE:"
  65. 1201  PRINT : PRINT "  ";
  66. 1202  INVERSE : PRINT "LOCK";: NORMAL : PRINT " FILENAME"
  67. 1205  PRINT 
  68. 1210  PRINT "17.TO UNLOCK A LOCKED FILE TYPE:"
  69. 1211  PRINT : PRINT "  ";
  70. 1212  INVERSE : PRINT "UNLOCK";: NORMAL : PRINT " FILENAME"
  71. 1213  GOSUB 500
  72. 1220  PRINT "18.TO CHANGE THE NAME OF A FILE ALREADY   ON DISK TYPE:"
  73. 1221  PRINT : PRINT "  ";
  74. 1222  INVERSE : PRINT "RENAME";: NORMAL : PRINT " OLDFILENAME,NEWFILENAME"
  75. 1223  PRINT 
  76. 1230  PRINT "19.FOR MORE DETAILED INFORMATION ON       PROGRAMMING IN BASIC PLEASE SEE OTHER   REFERENCES."
  77. 1231  GOSUB 500
  78. 1240  VTAB 10
  79. 1245  PRINT "FINISHED GETTING STARTED !!": PRINT : PRINT 
  80. 1250  INPUT "WOULD YOU LIKE A RE-RUN ? ";Y$
  81. 1260  IF Y$ = "Y"  OR Y$ = "YES"  THEN  HOME : GOTO 1030
  82. 1270  IF Y$ = "N"  OR Y$ = "NO"  THEN 63000
  83. 1280  PRINT : FLASH : PRINT "ANSWER 'YES' OR 'NO', PLEASE !!": FOR J = 1 TO 2000: NEXT J: NORMAL : HOME : GOTO 1240
  84. 62000  RESUME 
  85. 63000  TEXT : HOME : NORMAL : VTAB 8
  86. 63010  INVERSE : PRINT "PLEASE WAIT!!": NORMAL : PRINT : PRINT 
  87. 63020  INVERSE : PRINT "RE-LOADING MENU PROGRAM !!"
  88. 63030  NORMAL 
  89. 63040  PRINT : PRINT 
  90. 63045  POKE 1010,P0: POKE 1011,P1: POKE 1012,P2
  91. 63050  PRINT D$"RUNSTARTUP"